//**********************************************
//  by Haker.
//**********************************************
program MoveTitle;
const
Title = '{=K1 Jlox=}'; //  ,    :)
Character = 'xD'; //  ,     ;
UseTime = True; //  True / False -   /   ;

var
TitleTimer : TTimer;
TitleText : string;
tmp : string;
i : Integer;

procedure OnTitleTimer(Sender: TObject);
begin
if UseTime = False then
begin
if i=Length(Title) then
i:=0;
i:=i + 1;
tmp:=Copy(Title,i,Length(Title)) + Character + Copy(Title,0,i - 1);
end;

if UseTime = True then
tmp:='-= ' + TimeToStr(Time) + ' =-';

buf:=#$55;
WriteS(ConnectName);
WriteS(tmp);
SendToServerEx(ConnectName);
end;

procedure Init;
begin
i:=0;
TitleTimer:=TTimer.Create(nil);
TitleTimer.OnTimer:=@OnTitleTimer;
if UseTime = False then
TitleTimer.Interval:=1500;
if UseTime = True then
TitleTimer.Interval:=1200;
TitleTimer.Enabled:=True;
end;

procedure Free;
begin
TitleTimer.Free;
end;

begin

end.
